home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
COLOR.SWG
/
0008_Hi Intensity Colors #2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
516b
|
25 lines
{
> I have seen a lot of applications that use highintensity background
> colors in Text mode. How do they do it??????
}
Uses Crt ;
Procedure DisableHiBackGround(SetHi : Boolean); Assembler;
Asm
Mov AX, $1003
Mov BL, SetHi
Int $10
end ;
begin
ClrScr;
TextAttr := White + (LightRed ShL 4);
DisableHiBackGround(True) ;
Write('Blinking...[Enter]') ;
ReadLn ;
DisableHiBackGround(False) ;
Write(' WOW !!! ') ;
ReadLn ;
end.